home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / source / fngsrc.sit / Finger 1.3.5 Source / Common Units / ParameterDef.unit < prev    next >
Encoding:
Text File  |  1992-02-24  |  1.1 KB  |  27 lines
  1. unit ParameterDef;
  2.  
  3. { This code is part of the Finger/Fingerd source code, written in THINK Pascal 4 }
  4. { Copyright 1991-1992 Peter N Lewis }
  5. { If you use this code, you must give me credit in your about box and documentation }
  6.  
  7. interface
  8.  
  9.     type
  10.         parameterRecord = record
  11.                 fingeredname: stringPtr;            { Input        - finger name }
  12.                 param: stringPtr;                    { Input        - parameter following special }
  13.                 returnvalue: stringPtr;            { Output    - return string, appeneded to finger output.  Don't change ptr! }
  14.                 fingeroutput: handle;                { Input/Output    - finger output as its built. }
  15.                 hlength: longInt;                    { Input    /Output    -  handle length.  }
  16.                 offset: longInt;                        { Input/Output - offset from start of handle that finger output is up to }
  17.                 idle: longInt;                        { Input        - Idle time in seconds }
  18.                 remoteIP: longInt;                    { Input        - IP number of fingerer }
  19.                 expandtokens: boolean;            { Output    - Expand <cr>s and %tokens inserted into the fingeroutput handle }
  20. { Note: No extra expansion is done for strings.  If you have <cr>s in them, put <cr><lf> instead. }
  21.             end;
  22.  
  23. {  procedure Main (var p: parameterRecord); }
  24.  
  25. implementation
  26.  
  27. end.